From: Michaël Cadilhac <michael.cadilhac@lrde.org>
Date: Sun, 24 Dec 2006 20:20:26 +0000 (+0000)
Subject: (fill-comment-paragraph): Prevent the use of an optimized comment regexp if
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~3193
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=1bfdce13e7bb6b60733c7310db63a0aed83ed0ba;p=emacs.git

(fill-comment-paragraph): Prevent the use of an optimized comment regexp if
`comment-start-skip' uses a ^.
---

diff --git a/lisp/textmodes/fill.el b/lisp/textmodes/fill.el
index e5b3a64db84..3fec7a31b9f 100644
--- a/lisp/textmodes/fill.el
+++ b/lisp/textmodes/fill.el
@@ -838,7 +838,7 @@ can take care of filling.  JUSTIFY is used as in `fill-paragraph'."
 	     (commark
 	      (comment-string-strip (buffer-substring comstart comin) nil t))
 	     (comment-re
-	      (if (string-match comment-start-skip (concat commark "a"))
+	      (if (string-match comment-start-skip (concat "\0" commark "a"))
 		  (concat "[ \t]*" (regexp-quote commark)
 			  ;; Make sure we only match comments that use
 			  ;; the exact same comment marker.